home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #145 (19xx)(APS Electronic).zip / Bavarian #145 (19xx)(APS Electronic).adf / ASC-Befehl / Asc.Mod < prev    next >
Text File  |  1988-08-07  |  740b  |  35 lines
  1. MODULE Asc ; (* Public Domain von TAIFUN 04.10.1988 *)
  2. FROM InOut IMPORT WriteCard,WriteLn,WriteString,Read ;
  3. VAR Zeichen : CHAR ;
  4.     
  5. BEGIN
  6.  
  7.  WriteLn ;
  8.  WriteLn ;
  9.  WriteLn ;
  10.  WriteString("   TAIFUN - Public Domain, 04. Oktober 1988") ;
  11.  WriteLn ;
  12.  WriteLn ;
  13.  WriteString("   Programm gibt ASCII-Wert für Zeichen aus. ABBRUCH MIT *") ;
  14.  WriteLn ;
  15.  WriteLn ;
  16.  WriteString("   Drücke RETURN !!!") ;
  17.  WriteLn ;
  18.  WriteLn ;  
  19. WHILE Zeichen <> "*" DO
  20.  Read(Zeichen) ;
  21.  WriteLn ;
  22.  WriteLn ;
  23.  WriteString("           Geben Sie ein Zeichen von der Tastatur ein --> ") ;
  24.  Read(Zeichen) ;
  25.  WriteLn ;
  26.  WriteString("           ASCII-Wert des Zeichens = ") ;
  27.  WriteCard(ORD(Zeichen),1) ;
  28.  WriteLn ;
  29.  WriteLn ;
  30.  WriteLn ;
  31. END (* WHILE *) ;
  32.  
  33. END Asc .
  34.   
  35.